home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / bbs_soft / mrun210.zip / MRUN210C.WAS < prev    next >
Text File  |  1993-04-28  |  24KB  |  987 lines
  1. ;MailRun v2.10:  Part C, changebbs
  2. ;1992-1993 Gerald P. Sully, all rights reserved.
  3.  
  4. #comment
  5. **************************************************************************
  6. **************************************************************************
  7. * 
  8. * This file contains routines related to changing BBS settings.
  9. * Settings are divided into three groups, each with its own
  10. * dialog box:  BBS Settings, BBS Prompts, and Mail Door Prompts.
  11. * The appropriate routine is selected with a FLAG.
  12. * 
  13. **************************************************************************
  14. **************************************************************************
  15. #endcomment
  16.  
  17. #define MRUN210C
  18. #define MRUN210BC
  19.  
  20. #include "mrun210.h"
  21.  
  22. string ProtList, ArcList, MailDoorList, BBSTypeList
  23.  
  24.  
  25. #comment
  26. *********************************************************************
  27. * 
  28. * MAIN()
  29. * 
  30. * Calls checkchild(), makemaildoorlist(), menudim(),
  31. * makebbstypelist(), makeprotlist(), changeprompts(),
  32. * changeuserinfo(), changemaildoor()
  33. * 
  34. * Dispatches the appropriate command based on the value
  35. * of FLAGS.
  36. * 
  37. *********************************************************************
  38. #endcomment
  39.  
  40. proc main
  41. integer cmdstatus
  42.     menudim()
  43.     checkchild()
  44.     findfirst MailRun
  45.     MailRunTrunc = $FILENAME
  46.     makeprotlist()
  47.     makebbstypelist()
  48.     makemaildoorlist()
  49.     cmdstatus = FLAGS & (USR + PRMPT + QMD)
  50.     switch cmdstatus
  51.         case USR
  52.             changeuserinfo()
  53.         endcase
  54.         case PRMPT
  55.             changeprompts()
  56.         endcase
  57.         case QMD
  58.             changemaildoor()
  59.         endcase
  60.     endswitch
  61. endproc
  62.  
  63.  
  64. #comment
  65. *********************************************************************
  66. * 
  67. * CHANGEUSERINFO()
  68. * 
  69. * Called by main()
  70. * 
  71. * Calls getbbsi(), makebbslist(), loadbbsinfo(),
  72. * loadprompts(), loadmaildoor(), writebbsinfo(),
  73. * writeprompts(),  writemaildoor(), interfaceon(),
  74. * bbsbox(), addbbs(), defaultsprompts(), defaultsdoor(), 
  75. * cfgprompts(), cfgmaildoor(), writenewbbs(), checkchanged(),
  76. * getbbscoord(), gettaskstring()
  77. * 
  78. * Puts up the BBS Information dialog box and allows the
  79. * user to change the values for the current BBS.  If the
  80. * the DEFAULTS flag is set, changes the DEFAULT BBS
  81. * settings.  If the NEW flag is set, calls addbbs().
  82. * 
  83. *********************************************************************
  84. #endcomment
  85.  
  86. proc changeuserinfo
  87. string LastBBS, LastMRun, LastBBSType
  88. integer dialogstatus, i, j, NameChanged
  89.     i = getbbsi()
  90.     j = getitemi()
  91.     NameChanged = 0
  92.     profilerd MailRun BBS "BBSName" BBSName
  93.     LastBBS = BBS
  94.     LastMRun = MailRun
  95.     if FLAGS & DEFAULTS
  96.         BBSList = "DEFAULT"
  97.         BBS = "DEFAULT"
  98.     else
  99.         makebbslist()
  100.     endif
  101.     loadbbsinfo()
  102.     loadprompts()
  103.     loadmaildoor()
  104.     LastBBSType = BBSType
  105.     if FLAGS & DEFAULTS
  106.         findfirst MailRun
  107.         strfmt BBSName "BBS Info Defaults for %s" $FILENAME
  108.     endif
  109.     bbsbox()
  110.     interfaceon()
  111.     FLAGS &= UNCHANGED
  112.     if FLAGS & NEW
  113.         addbbs()
  114.         LastBBS = BBS
  115.     endif
  116.     while 1
  117.         dialogstatus = $DIALOG
  118.         switch dialogstatus
  119.             case 10
  120.                 ;User selected "Prompts"
  121.                 if FLAGS & DEFAULTS
  122.                     defaultsprompts()
  123.                 else
  124.                     cfgprompts()
  125.                 endif
  126.             endcase
  127.             case 11
  128.                 ;User selected "Mail Door"
  129.                 if FLAGS & DEFAULTS
  130.                     defaultsdoor()
  131.                 else
  132.                     cfgmaildoor()
  133.                 endif
  134.             endcase
  135.             case 12
  136.                 ;User selected "Save"
  137.                 if NULLSTR BBSName
  138.                     usermsg "You must enter the name of the BBS!"
  139.                     loopwhile
  140.                 elseif FLAGS & NEW
  141.                     writenewbbs()
  142.                     FLAGS &= OLD
  143.                 endif
  144.                 writebbsinfo()
  145.                 writeprompts()
  146.                 writemaildoor()
  147.                 if NameChanged && (j == 0)
  148.                     i = getbbscoord()
  149.                     TaskItem = gettaskstring(i, 0)
  150.                 endif
  151.                 FLAGS &= UNCHANGED
  152.             endcase
  153.             case 13
  154.                 ;User selected "Done:
  155.                 if checkchanged()
  156.                     exit
  157.                 endif
  158.             endcase
  159.             case 171
  160.                 ;User changed the BBS type
  161.                 if FLAGS & DEFAULTS
  162.                     if checkchanged()
  163.                         loadprompts()
  164.                         FLAGS &= UNCHANGED
  165.                         LastBBSType = BBSType
  166.                     else
  167.                         BBSType = LastBBSType
  168.                     endif
  169.                 else
  170.                     FLAGS |= DEFAULTS
  171.                     loadprompts()
  172.                     FLAGS &= (ALLFLAGS - DEFAULTS)
  173.                 endif
  174.                 FLAGS |= CHANGED
  175.                 updatedlg -1
  176.             endcase
  177.             case 172
  178.                 ;User changed the mail door type
  179.                 if FLAGS & DEFAULTS
  180.                     loadmaildoor()
  181.                 else
  182.                     FLAGS |= DEFAULTS
  183.                     loadmaildoor()
  184.                     FLAGS &= (ALLFLAGS - DEFAULTS)
  185.                 endif
  186.                 FLAGS |= CHANGED
  187.             endcase
  188.             case 173
  189.                 ;User changed BBS ID with combobox
  190.                 if checkchanged()
  191.                     loadbbsinfo()
  192.                     loadprompts()
  193.                     loadmaildoor()
  194.                     i = getbbscoord()
  195.                     j = 0
  196.                     TaskItem = gettaskstring(i, 0)
  197.                     FLAGS &= UNCHANGED
  198.                     LastBBS = BBS
  199.                     updatedlg -1
  200.                 else
  201.                     BBS = LastBBS
  202.                     updatedlg 512
  203.                 endif
  204.             endcase
  205.             case 230
  206.                 NameChanged = 1
  207.                 FLAGS |= CHANGED
  208.             endcase
  209.             case 70
  210.             case 170
  211.             case 231
  212.             case 232
  213.             case 233
  214.             case 234
  215.             case 235
  216.             case 236
  217.             case 237
  218.             case 238
  219.             case 239
  220.                 FLAGS |= CHANGED
  221.             endcase
  222.         endswitch
  223.     endwhile
  224. endproc
  225.  
  226.  
  227. #comment
  228. *********************************************************************
  229. * 
  230. * CHANGEPROMPTS()
  231. * 
  232. * Called by main()
  233. * 
  234. * Calls getbbsi(), makebbslist(), promptbox(), loadprompts(),
  235. * writeprompts(), interfaceon(), defaultsbbs(), defaultsdoor(),
  236. * cfgbbs(), cfgmaildoor(), exportprompts(), checkchanged(),
  237. * getbbscoord(), gettaskstring()
  238. * 
  239. * Allows the user to change the prompts for a given BBS in
  240. * the *.MRN file.  If DEFAULTS flag is set, changes default
  241. * prompts for the current BBS type.
  242. * 
  243. *********************************************************************
  244. #endcomment
  245.  
  246. proc changeprompts
  247. string LastBBS, LastMRun, LastBBSType
  248. integer dialogstatus, i
  249.     i = getbbsi()
  250.     profilerd MailRun BBS "BBSName" BBSName
  251.     LastBBS = BBS
  252.     LastMRun = MailRun
  253.     profilerd MailRun BBS "BBSType" BBSType
  254.     if FLAGS & DEFAULTS
  255.         profilerd MailRun "DEFAULT" "BBSType" BBSType
  256.         BBSList = "DEFAULT"
  257.         BBS = "DEFAULT"
  258.     else
  259.         makebbslist()
  260.     endif
  261.     loadprompts()
  262.     LastBBSType = BBSType
  263.     promptbox()
  264.     FLAGS &= UNCHANGED
  265.     interfaceon()
  266.     while 1
  267.         dialogstatus = $DIALOG
  268.         switch dialogstatus
  269.             case 10
  270.                 ;User selected "BBS Info"
  271.                 if FLAGS & DEFAULTS
  272.                     defaultsbbs()
  273.                 else
  274.                     cfgbbs()
  275.                 endif
  276.             endcase
  277.             case 11
  278.                 ;User selected "Mail Door"
  279.                 if FLAGS & DEFAULTS
  280.                     defaultsdoor()
  281.                 else
  282.                     cfgmaildoor()
  283.                 endif
  284.             endcase
  285.             case 12
  286.                 ;User selected "Export"
  287.                 exportprompts()
  288.             endcase
  289.             case 13
  290.                 ;User selected "Save"
  291.                 writeprompts()
  292.                 if !(FLAGS & DEFAULTS)
  293.                     profilewr MailRun BBS "BBSType" BBSType
  294.                 endif
  295.                 FLAGS &= UNCHANGED
  296.             endcase
  297.             case 14
  298.                 ;User selected "Done"
  299.                 if checkchanged()
  300.                     exit
  301.                 endif
  302.             endcase
  303.             case 170
  304.                 ;User changed BBS with the combobox
  305.                 if checkchanged()
  306.                     loadprompts()
  307.                     profilerd MailRun BBS "BBSType" BBSType
  308.                     i = getbbscoord()
  309.                     TaskItem = gettaskstring(i, 0)
  310.                     LastBBS = BBS
  311.                     updatedlg -1
  312.                 else
  313.                     BBS = LastBBS
  314.                     updatedlg 512
  315.                 endif
  316.             endcase
  317.             case 171
  318.                 ;User changed BBS type
  319.                 if FLAGS & DEFAULTS
  320.                     if checkchanged()
  321.                         loadprompts()
  322.                         updatedlg 128
  323.                         FLAGS &= UNCHANGED
  324.                         LastBBSType = BBSType
  325.                     else
  326.                         BBSType = LastBBSType
  327.                         updatedlg 512
  328.                     endif
  329.                 else
  330.                     FLAGS |= DEFAULTS
  331.                     loadprompts()
  332.                     FLAGS &= (ALLFLAGS - DEFAULTS)
  333.                     updatedlg 128
  334.                     FLAGS |= CHANGED
  335.                 endif
  336.             endcase
  337.             case 230
  338.             case 231
  339.             case 232
  340.             case 233
  341.             case 234
  342.             case 235
  343.             case 236
  344.             case 237
  345.             case 238
  346.             case 239
  347.             case 240
  348.             case 241
  349.             case 242
  350.             case 243
  351.             case 244
  352.             case 245
  353.                 FLAGS |= CHANGED
  354.             endcase
  355.         endswitch
  356.     endwhile
  357. endproc
  358.  
  359.  
  360. #comment
  361. *********************************************************************
  362. * 
  363. * CHANGEMAILDOOR()
  364. * 
  365. * Called by main()
  366. * 
  367. * Calls getbbsi(), makebbslist(), interfaceon(),
  368. * loadmaildoor(), writemaildoor(),
  369. * maildoorbox(), defaultsbbs(), defaultsprompts(),
  370. * cfgbbs(), cfgprompts(), exportmaildoor(), checkchanged(),
  371. * getbbscoord(), gettaskstring()
  372. * 
  373. * Allows the user to change the mail door prompts for a
  374. * given BBS in the *.MRN file.
  375. * 
  376. *********************************************************************
  377. #endcomment
  378.  
  379. proc changemaildoor
  380. string LastBBS, LastMRun, LastDoorType
  381. integer dialogstatus, i
  382.     i = getbbsi()
  383.     profilerd MailRun BBS "BBSName" BBSName
  384.     LastBBS = BBS
  385.     LastMRun = MailRun
  386.     profilerd MailRun BBS "MailDoorType" MailDoorType
  387.     if FLAGS & DEFAULTS
  388.         profilerd MailRun "DEFAULT" "MailDoorType" MailDoorType
  389.         BBSList = "DEFAULT"
  390.         BBS = "DEFAULT"
  391.     else
  392.         makebbslist()
  393.     endif
  394.     loadmaildoor()
  395.     profilerd MailRun BBS "QWKArchiver" QWKArchiver
  396.     profilerd MailRun BBS "MailXferProt" MailXferProt
  397.     LastDoorType = MailDoorType
  398.     ArcList = "arj.exe,fpzipx.exe,lha.exe,lharc.exe,pkunzip.exe,pkxarc.exe,zoo.exe"
  399.     maildoorbox()
  400.     interfaceon()
  401.     while 1
  402.         dialogstatus = $DIALOG
  403.         switch dialogstatus
  404.             case 10
  405.                 ;User selected "Prompts"
  406.                 if FLAGS & DEFAULTS
  407.                     defaultsprompts()
  408.                 else
  409.                     cfgprompts()
  410.                 endif
  411.             endcase
  412.             case 11
  413.                 ;User selected "BBS Info"
  414.                 if FLAGS & DEFAULTS
  415.                     defaultsbbs()
  416.                 else
  417.                     cfgbbs()
  418.                 endif
  419.             endcase
  420.             case 12
  421.                 ;User selected "Export"
  422.                 exportmaildoor()
  423.             endcase
  424.             case 13
  425.                 ;User selected "Save"
  426.                 writemaildoor()
  427.                 if !(FLAGS & DEFAULTS)
  428.                     profilewr MailRun BBS "MailDoorType" MailDoorType
  429.                 endif
  430.                 profilewr MailRun BBS "QWKArchiver" QWKArchiver
  431.                 profilewr MailRun BBS "MailXferProt" MailXferProt
  432.                 FLAGS &= UNCHANGED
  433.             endcase
  434.             case 14
  435.                 ;User selected "Done"
  436.                 if checkchanged()
  437.                     exit
  438.                 endif
  439.             endcase
  440.             case 170
  441.                 ;User changed mail door type
  442.                 if FLAGS & DEFAULTS
  443.                     if checkchanged()
  444.                         loadmaildoor()
  445.                         FLAGS &= UNCHANGED
  446.                         updatedlg 128
  447.                         LastDoorType = MailDoorType
  448.                     else
  449.                         MailDoorType = LastDoorType
  450.                         updatedlg 512
  451.                     endif
  452.                 else
  453.                     FLAGS |= DEFAULTS
  454.                     loadmaildoor()
  455.                     FLAGS &= (ALLFLAGS - DEFAULTS)
  456.                     FLAGS |= CHANGED
  457.                     updatedlg 128
  458.                 endif
  459.             endcase
  460.             case 173
  461.                 ;User changed the current BBS
  462.                 if checkchanged()
  463.                     loadmaildoor()
  464.                     profilerd MailRun BBS "MailDoorType" MailDoorType
  465.                     profilerd MailRun BBS "QWKArchiver" QWKArchiver
  466.                     profilerd MailRun BBS "MailXferProt" MailXferProt
  467.                     i = getbbscoord()
  468.                     TaskItem = gettaskstring(i, 0)
  469.                     LastBBS = BBS
  470.                     updatedlg -1
  471.                 else
  472.                     BBS = LastBBS
  473.                     updatedlg 512
  474.                 endif
  475.             endcase
  476.             case 171
  477.             case 172
  478.             case 230
  479.             case 231
  480.             case 232
  481.             case 233
  482.             case 234
  483.             case 235
  484.                 FLAGS |= CHANGED
  485.             endcase
  486.         endswitch
  487.     endwhile
  488. endproc
  489.                 
  490.  
  491. #comment
  492. *********************************************************************
  493. * 
  494. * ADDBBS()
  495. * 
  496. * Called by changeuserinfo()
  497. * 
  498. * Calls fverify(), inlist(), loadbbsinfo(), loadprompts(), 
  499. * loadmaildoor()
  500. * 
  501. * Adds a BBS to the *.MRN file, assigning default info
  502. * and prompts.
  503. * 
  504. *********************************************************************
  505. #endcomment
  506.  
  507. proc addbbs
  508. string NewBBS
  509.     while 1
  510.         sdlginput "BBS ID" "Enter the ID of the BBS:" NewBBS
  511.         if FAILURE
  512.             exit 
  513.         endif
  514.         strlwr NewBBS
  515.         if not fverify(NewBBS)
  516.             usermsg "A bulletin board's BBS ID is the same as the \
  517. name of it's QWK packet.  It must be a valid DOS \
  518. file name without the extension."
  519.         elseif inlist(NewBBS, BBSList) 
  520.             errormsg "That BBS is already in the MailRun!"
  521.         else
  522.             exitwhile
  523.         endif
  524.     endwhile
  525.  
  526.     ;If there is no previously existing information for the new BBS,
  527.     ;assign the defaults, otherwise, use the old info.
  528.     ;Any previously entered BBS will have a name.
  529.  
  530.     BBS = NewBBS
  531.     profilerd MailRun BBS "BBSName" BBSName
  532.     if NULLSTR BBSName
  533.         ;Load defaults
  534.         FLAGS |= DEFAULTS
  535.         loadbbsinfo()
  536.         BBSName = ""
  537.         loadprompts()
  538.         loadmaildoor()
  539.         FLAGS &= (ALLFLAGS - DEFAULTS)
  540.     else
  541.         loadbbsinfo()
  542.         loadprompts()
  543.         loadmaildoor()
  544.     endif
  545.     FLAGS |= CHANGED
  546.     ;Add the new BBS to the BBS list
  547.     if not NULLSTR BBSList
  548.         strfmt BBSList "%s,%s" BBSList BBS
  549.     else
  550.         BBSList = BBS
  551.     endif
  552.     updatedlg -1
  553. endproc
  554.  
  555.  
  556. #comment
  557. *********************************************************************
  558. * 
  559. * EXPORTPROMPTS()
  560. * 
  561. * Called by changeprompts()
  562. * 
  563. * Calls findstring(), writeprompts(), makebbstypelist(),
  564. * inlist()
  565. * 
  566. * Creates a new BBS type with current prompt set.
  567. * 
  568. *********************************************************************
  569. #endcomment
  570.  
  571. proc exportprompts
  572. string NewBBSType, BBSType_X
  573. integer i
  574.     while 1
  575.         NewBBSType = BBSType
  576.         sdlginput "Export Prompts" "Name the new prompt set:" \
  577.             NewBBSType DEFAULT
  578.         if FAILURE
  579.             return
  580.         endif
  581.         if inlist(NewBBSType, BBSTypeList) 
  582.             usermsg "There is already a prompt set for %s!" NewBBSType
  583.             loopwhile
  584.         endif
  585.         if !(findstring(NewBBSType "PCBoard") || \
  586.             findstring(NewBBSType, "WildCat") || \
  587.             findstring(NewBBSType, "Auntie") || findstring(NewBBSType, "RBBS"))
  588.             usermsg "The name of the prompt set must contain a \
  589. keyword indicating the type of BBS.  Valid keywords are `"PCBoard,`" \
  590. `"WildCat,`" `"RBBS`" and `"Auntie.`""
  591.             loopwhile
  592.         endif
  593.         exitwhile
  594.     endwhile
  595.     i = 1
  596.     strfmt BBSType_X "BBSType_%d" i
  597.     profilerd MailRunIni "BBSTypes" BBSType_X BBSType
  598.     while not NULLSTR BBSType
  599.         i++
  600.         strfmt BBSType_X "BBSType_%d" i
  601.         profilerd MailRunIni "BBSTypes" BBSType_X BBSType
  602.     endwhile
  603.     BBSType = NewBBSType
  604.     profilewr MailRunIni "BBSTypes" BBSType_X BBSType
  605.     if FLAGS & DEFAULTS
  606.         writeprompts()
  607.     else
  608.         FLAGS |= DEFAULTS
  609.         writeprompts()
  610.         FLAGS &= (ALLFLAGS - DEFAULTS)
  611.     endif
  612.     makebbstypelist()
  613.     updatedlg 512
  614. endproc
  615.  
  616.  
  617. #comment
  618. *********************************************************************
  619. * 
  620. * EXPORTMAILDOOR()
  621. * 
  622. * Called by changemaildoor()
  623. * 
  624. * Calls writemaildoor(), makemaildoorlist(), inlist()
  625. * 
  626. * Adds a BBS to the *.MRN file, assigning default info
  627. * and prompts.
  628. * 
  629. *********************************************************************
  630. #endcomment
  631.  
  632. proc exportmaildoor
  633. string NewMailDoorType, MailDoor_X
  634. integer i
  635.     while 1
  636.         NewMailDoorType = MailDoorType
  637.         sdlginput "Export Prompts" "Name the new mail door:" \
  638.             NewMailDoorType DEFAULT
  639.         if FAILURE
  640.             return
  641.         endif
  642.         if inlist(NewMailDoorType, MailDoorList) 
  643.             usermsg "There is already a prompt set for %s!" \
  644.                 NewMailDoorType
  645.             loopwhile
  646.         endif
  647.         exitwhile
  648.     endwhile
  649.     i = 1
  650.     strfmt MailDoor_X "MailDoor_%d" i
  651.     profilerd MailRunIni "MailDoors" MailDoor_X MailDoorType
  652.     while not NULLSTR MailDoorType
  653.         i++
  654.         strfmt MailDoor_X "MailDoor_%d" i
  655.         profilerd MailRunIni "MailDoors" MailDoor_X MailDoorType
  656.     endwhile
  657.     MailDoorType = NewMailDoorType
  658.     profilewr MailRunIni "MailDoors" MailDoor_X MailDoorType
  659.     if FLAGS & DEFAULTS
  660.         writemaildoor()
  661.     else
  662.         FLAGS |= DEFAULTS
  663.         writemaildoor()
  664.         FLAGS &= (ALLFLAGS - DEFAULTS)
  665.     endif
  666.     makemaildoorlist()
  667.     updatedlg 512
  668. endproc
  669.  
  670.  
  671. #comment
  672. *********************************************************************
  673. * 
  674. * INLIST()
  675. * 
  676. * Called by addbbs(), exportprompts(), exportmaildoor()
  677. * 
  678. * Returns 1 if the first string parameter is contained in
  679. * the second string, which must be a comma delimited list;
  680. * otherwise returns 0.
  681. * 
  682. *********************************************************************
  683. #endcomment
  684.  
  685. func inlist: integer
  686. strparm LookString, ListString
  687. string Element
  688. integer i = 0
  689.     strextract Element ListString "," i
  690.     while not NULLSTR Element
  691.         if strcmpi Element LookString
  692.             return 1
  693.         endif
  694.         i++
  695.         strextract Element ListString "," i
  696.     endwhile
  697.     return 0 
  698. endfunc
  699.  
  700.  
  701. #comment
  702. *********************************************************************
  703. * 
  704. * BBSBOX()
  705. * 
  706. * Called by changeuserinfo()
  707. * 
  708. * Displays the BBS Information dialog box.
  709. * 
  710. *********************************************************************
  711. #endcomment
  712.  
  713. proc bbsbox
  714. destroydlg
  715. HelpPage = 5
  716. dialogbox 24 36 320 215 15 "BBS Information" helpid HelpPage
  717.    text  142 10 40 8 right "BBS Name:"
  718.    editbox 186 8 121 12 BBSName
  719.    groupbox 10 28 138 156 "BBS Info" shadow
  720.    text  13 47 62 8 right "User ID:"
  721.    text  13 67 62 8 right "Password:"
  722.    text  13 87 62 8 right "Xfer Protocol:"
  723.    text  13 107 62 11 right "Calling From:"
  724.    text  13 127 62 8 right "User Response 1:"
  725.    text  13 147 62 8 right "User Response 2:"
  726.    text  27 167 92 8 right "Language/Prompt Scheme:"
  727.    editbox 79 45 60 12 UserName
  728.    editbox 79 65 60 12 PWord
  729.    combobox 79 85 60 42 ProtList XferProt sort
  730.    editbox 79 105 60 12 CallingFrom
  731.    editbox 79 125 60 12 UserResp1
  732.    editbox 79 145 60 12 UserResp2
  733.    editbox 123 165 16 12 LangNumber
  734.    checkbox 187 174 90 12 "Display ANSI Graphics " GraphicsOn
  735.    groupbox 158 29 150 79 "Phone Numbers" shadow
  736.    text  162 49 35 8 right "Node 1:"
  737.    text  162 69 35 8 right "Node 2:"
  738.    text  162 89 35 8 right "Node 3:"
  739.    editbox 201 47 100 12 Number_1
  740.    editbox 201 67 100 12 Number_2
  741.    editbox 201 87 100 12 Number_3
  742.    groupbox 158 115 150 50 shadow
  743.    text  160 128 39 8 right "BBS Type:"
  744.    text  171 145 39 8 right "Mail Door:"
  745.    combobox 202 124 98 42 BBSTypeList BBSType sort
  746.    combobox 214 143 76 42 MailDoorList MailDoorType sort
  747.    pushbutton 42 193 52 14 "&Prompts" normal
  748.    pushbutton 104 193 52 14 "&Mail Door" normal
  749.    pushbutton 169 193 52 14 "&Save" normal default
  750.    pushbutton 232 193 52 14 "&Done" normal
  751.    text  28 10 36 8 right "BBS ID:"
  752.    combobox 68 8 66 42 BBSList BBS sort
  753. enddialog
  754. endproc
  755.  
  756.  
  757. #comment
  758. *********************************************************************
  759. * 
  760. * PROMPTBOX()
  761. * 
  762. * Called by changeprompts()
  763. * 
  764. * Displays the BBS Prompts dialog box.
  765. * 
  766. *********************************************************************
  767. #endcomment
  768.  
  769. proc promptbox
  770. destroydlg
  771. HelpPage = 6
  772. dialogbox 14 36 324 209 15 "BBS Prompts" HELPID HelpPage
  773.    groupbox 13 30 297 147 shadow
  774.    text  18 44 56 8 right "Language:"
  775.    text  18 60 56 8 right "ANSI Graphics:"
  776.    text  18 76 56 8 right "Name:"
  777.    text  18 92 56 8 right "Password:"
  778.    text  18 108 56 8 right "User Prompt 1:"
  779.    text  18 124 56 8 right "User Prompt 2:"
  780.    text  18 140 56 8 right "View:"
  781.    text  18 156 56 8 right "Scan Msg Base:"
  782.    editbox 78 42 76 12 LangPrompt
  783.    editbox 78 58 76 12 GraphicsPrompt
  784.    editbox 78 74 76 12 NamePrompt
  785.    editbox 78 90 76 12 PWordPrompt
  786.    editbox 78 106 76 12 UserPrompt1
  787.    editbox 78 122 76 12 UserPrompt2
  788.    editbox 78 138 76 12 ViewPrompt
  789.    editbox 78 154 76 12 ScanPrompt
  790.    text  160 44 56 8 right "File Prompt:"
  791.    text  160 60 56 8 right "More:"
  792.    text  160 76 56 8 right "Continue:"
  793.    text  160 92 56 8 right "Command:"
  794.    text  160 108 56 8 right "File Unavailable:"
  795.    text  160 124 56 8 right "File Description:"
  796.    text  160 140 56 8 right "Start File D/L:"
  797.    text  160 156 56 8 right "Start File U/L:"
  798.    editbox 220 42 76 12 FilePrompt
  799.    editbox 220 58 76 12 MorePrompt
  800.    editbox 220 74 76 12 ContinuePrompt
  801.    editbox 220 90 76 12 CommandPrompt
  802.    editbox 220 106 76 12 DLUnavPrompt
  803.    editbox 220 122 76 12 ULDescPrompt
  804.    editbox 220 138 76 12 DLPrompt
  805.    editbox 220 154 76 12 ULPrompt
  806.    pushbutton 22 187 48 14 "&BBS Info" normal
  807.    pushbutton 80 187 48 14 "&Mail Door" normal
  808.    pushbutton 138 187 48 14 "&Export" normal
  809.    pushbutton 196 187 48 14 "&Save" normal default
  810.    pushbutton 254 187 48 14 "&Done" normal
  811.    text  12 14 42 8 right "Prompts for:"
  812.    combobox 58 12 72 42 BBSList BBS sort
  813.    text  134 14 68 8 right "Prompts based on:"
  814.    combobox 206 12 100 42 BBSTypeList BBSType sort
  815. enddialog
  816. endproc
  817.  
  818.  
  819. #comment
  820. *********************************************************************
  821. * 
  822. * MAILDOORBOX()
  823. * 
  824. * Called by changemaildoor()
  825. * 
  826. * Displays the Mail Door dialog box.
  827. * 
  828. *********************************************************************
  829. #endcomment
  830.  
  831. proc maildoorbox
  832. destroydlg
  833. HelpPage = 7
  834. dialogbox 8 36 342 165 15 "Mail Door" helpid HelpPage
  835.    groupbox 12 33 156 93 shadow
  836.    text  20 48 62 8 right "Start Mail Door:"
  837.    text  20 68 62 8 right "Prompts Based on:"
  838.    text  20 88 62 8 right "QWK Archiver:"
  839.    text  20 108 62 8 right "Transfer Protocol:"
  840.    editbox 86 46 70 12 MailDoor
  841.    combobox 86 66 70 42 MailDoorList MailDoorType sort
  842.    combobox 86 86 70 42 ArcList QWKArchiver sort
  843.    combobox 86 106 70 42 ProtList MailXferProt sort
  844.    groupbox 180 11 150 115 "Prompts" shadow
  845.    text  190 28 56 8 right "Message Menu:"
  846.    text  190 48 56 8 right "Mail Command:"
  847.    text  190 68 56 8 right "Receive Packet:"
  848.    text  190 88 56 8 right "Start Mail U/L:"
  849.    text  190 108 56 8 right "Start Mail D/L:"
  850.    editbox 250 25 70 12 MsgMenuPrompt
  851.    editbox 250 46 70 12 MailPrompt
  852.    editbox 250 66 70 12 ReceiveQWKPrompt
  853.    editbox 250 86 70 12 MailULPrompt
  854.    editbox 250 106 70 12 MailDLPrompt
  855.    text  19 13 53 8 right "Mail Door for:"
  856.    combobox 76 11 77 42 BBSList BBS sort
  857.    pushbutton 22 139 50 14 "&Prompts" normal
  858.    pushbutton 84 139 50 14 "&BBS Info" normal
  859.    pushbutton 146 139 50 14 "&Export" normal
  860.    pushbutton 208 139 50 14 "&Save" normal default
  861.    pushbutton 270 139 50 14 "&Done" normal
  862. enddialog
  863. endproc
  864.  
  865.  
  866. #comment
  867. *********************************************************************
  868. * 
  869. * MAKEPROTLIST()
  870. * 
  871. * Called by main()
  872. * 
  873. * Creates a list of transfer protocols for display in the
  874. * bbsbox() dialog box protocol combobox.
  875. * 
  876. *********************************************************************
  877. #endcomment
  878.  
  879. proc makeprotlist
  880. string ProtName
  881. integer i
  882.     i = 0
  883.     ProtList = ""
  884.     getitem PROTOCOL i ProtName
  885.     while not NULLSTR ProtName
  886.         strfmt ProtList "%s,%s" ProtList ProtName
  887.         i++
  888.         getitem PROTOCOL i ProtName
  889.     endwhile
  890.     strdelete ProtList 0 1
  891. endproc
  892.  
  893.  
  894. #comment
  895. *********************************************************************
  896. * 
  897. * MAKEMAILDOORLIST()
  898. * 
  899. * Called by main(), exportmaildoor()
  900. * 
  901. * Creates a list of mail doors for display the mail door
  902. * combobox of the BBS info and Mail Door dialog boxes.
  903. * 
  904. *********************************************************************
  905. #endcomment
  906.  
  907. proc makemaildoorlist
  908. string MailDoor_X, DoorType
  909. integer i
  910.     MailDoorList = ""
  911.     i = 1
  912.     profilerd MailRunIni "MailDoors" "MailDoor_1" DoorType
  913.     while not NULLSTR DoorType
  914.         strfmt MailDoorList "%s,%s" MailDoorList DoorType
  915.         i++
  916.         strfmt MailDoor_X "MailDoor_%d" i
  917.         profilerd MailRunIni "MailDoors" MailDoor_X DoorType
  918.     endwhile
  919.     if i > 1
  920.         strdelete MailDoorList 0 1
  921.     endif
  922. endproc
  923.  
  924.  
  925. #comment
  926. *********************************************************************
  927. * 
  928. * MAKEBBSTYPELIST()
  929. * 
  930. * Called by main(), exportprompts()
  931. * 
  932. * Creates a list of BBS types for display the BBS type
  933. * combobox of the BBS info and BBS prompt dialog boxes.
  934. * 
  935. *********************************************************************
  936. #endcomment
  937.  
  938. proc makebbstypelist
  939. string BBSType_X, BoardType
  940. integer i
  941.     BBSTypeList = ""
  942.     i = 1
  943.     profilerd MailRunIni "BBSTypes" "BBSType_1" BoardType
  944.     while not NULLSTR BoardType
  945.         strfmt BBSTypeList "%s,%s" BBSTypeList BoardType
  946.         i++
  947.         strfmt BBSType_X "BBSType_%d" i
  948.         profilerd MailRunIni "BBSTypes" BBSType_X BoardType
  949.     endwhile
  950.     if i > 1
  951.         strdelete BBSTypeList 0 1
  952.     endif
  953. endproc
  954.  
  955.  
  956. #comment
  957. *********************************************************************
  958. * 
  959. * WRITENEWBBS()
  960. * 
  961. * Called by changeuserinfo()
  962. * 
  963. * Calls insertbbs(), writebbs()
  964. * 
  965. * If the NEW flag is set, writes the information for the
  966. * new BBS to the *.MRN file.
  967. * 
  968. *********************************************************************
  969. #endcomment
  970.  
  971. proc writenewbbs
  972. string char
  973. integer i
  974.     ;Determine the insertion point  and renumber all following BBSs
  975.     if not NULLSTR TaskItem
  976.         strextract char TaskItem "`t" 3
  977.         ;i is the BBS coordinate
  978.         atoi char i
  979.         insertbbs(i, BBS)
  980.     else
  981.         i = 0
  982.         writebbs(1, BBS)
  983.     endif
  984.     i++
  985.     strfmt TaskItem "%s`t`t`t%d`t0" BBSName i
  986. endproc
  987.